10 POKE53280,0:POKE53281,0:PRINT"[147]":POKE56,128:CLR
20 FORG=32768TO32876:READA:C=C+A:POKEG,A:NEXT
30 IFC<>13765THENPRINT"[147]TYPING ERROR IN LINES 100-150.":STOP
40 A$="        ":PRINT"[147]      PRESS RESTORE[146] TO ACTIVATE."
50 PRINT""A$"POKE1020,<BORDER COLOR>"
60 PRINT A$"POKE1021,<SCREEN COLOR>"
70 PRINT A$"POKE1022,<CURSOR COLOR>"
80 PRINT A$"POKE1023,<CHARACTER COLOR>"
90 PRINT"TYPE SYS 32785[146] TO READ NEW VECTOR VALUES"
100 DATA 11,128,11,128,195,194,205,56,48,161,128,32,17,128,76,29,128,160
110 DATA 204,185,52,2,153,128,128,200,208,247,96,169,0,141,252,3,169,11
120 DATA 141,253,3,169,1,141,254,3,141,255,3,169,58,141,0,128,141,2,128
130 DATA 108,20,3,32,129,255,32,138,255,160,204,185,128,128,153,52,2,200
140 DATA 208,247,173,255,3,141,33,208,173,252,3,141,32,208,173,254,3,141
150 DATA 134,2,169,147,32,210,255,173,253,3,141,33,208,162,255,76,139,227